home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Gamedisk3 / Gamedisk3.AMOS / Gamedisk3.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1993-06-02  |  6.2 KB  |  194 lines
  1. ' Gamedisk 3 Intro 
  2. Hide On 
  3. Dim STP(40,1)
  4. For A=0 To 40
  5.   Read STP(A,0),STP(A,1)
  6. Next 
  7. Screen Open 7,16,16,2,0 : Screen Hide 
  8. Track Loop On 
  9. Track Play 3
  10. Gosub GAMEDISKSCREENINIT
  11. Gosub STARSINIT
  12. Screen Show 1
  13. Screen Show 2
  14. Screen Show 3
  15. Screen To Front 3
  16. S$="WELCOME TO THE GAMEDISK 3h5.   PUBLISHED BY THE SOFTWARE SOCIETY!   "
  17. S$=S$+"THIS TIME THE GAMES COME FROM HANS PETER OBERMEIER (CRACK OUT GFX), "
  18. S$=S$+"PETER HODGES (FTC GFX) AND CHRIS HODGES (ALL CODE, INCLUDING THE INTRO). "
  19. S$=S$+"   ATTENTION!h5!! BEFORE YOU CAN PLAY A GAME IT MUST BE "
  20. S$=S$+"DECRUNCHED ONTO A SEPERATE DISK, SO KEEP TWO FORMATED DISKS READY BEFORE "
  21. S$=S$+"PROCEEDING...   FREE TRADING COMPANY IS HARD DISK INSTALLABLE, BUT "
  22. S$=S$+"YOU CANNOT INSTALL IT RIGHT FROM THIS DISK, ONLY FROM THE FTC DISK! "
  23. S$=S$+"    IF YOU LIKE THE GAMES, WHY NOT TRYING THE OTHERS???  29 DM IS "
  24. S$=S$+"RATHER CHEAP FOR THAT POWER YOU GET!!!  OTHER GAMEDISKS AVAILABLE FROM "
  25. S$=S$+"THE SOFTWARE SOCIETY. TEL. 0751-67806h9.    "
  26. S$=S$+"NOW A SAD MESSAGE:  THIS WILL BE PROBABLY MY LAST GAMEDISK. "
  27. S$=S$+"  HANS PETER, MY BROTHER AND I SPENT SO MUCH TIME IN THE GAMES "
  28. S$=S$+"AND I WOULD BE DEEPLY DEPRESSED IF IT DIDN'T SELL WELL.   "
  29. S$=S$+"I ALWAYS WELCOME POSITIVE AND NEGATIVE CRITICISM... SO IF YOU "
  30. S$=S$+"WANT TO CONTACT ME, WRITE TO ## CHRISTOPHER HODGES ## KENNEDYSTR. 8 ## "
  31. S$=S$+"82178 PUCHHEIM ## WEST GERMANY ##.    I'M ALSO SEARCHING FOR A GRAPHICS ARTIST "
  32. S$=S$+"FOR A PROJECT (A JUMP'N'RUN GAME).     HOPE TO SEE YA SOON!     "
  33. S$=S$+"BYEEEEE....               PS: DO YOU LIKE THIS INTRO? IT'S QUITE "
  34. S$=S$+"SIMILAR TO THE TURRICAN II INTRO... BUT IT ISN'T STOLEN!!!      AND AGAIN "
  35. YS=96
  36. BP=0 : SX=0
  37. Rainbow 1,0,223,34
  38. Screen 3
  39. Repeat 
  40.   Wait Vbl 
  41.   STP=Rnd(40) : Add STAR,1,0 To 7 : Amreg(STAR,0)=STP(STP,0) : Amreg(STAR,1)=STP(STP,1)
  42.   YS=Min(YS+2,192)
  43.   Screen Display 1,,Min(YS,160),,
  44.   Screen Display 2,,YS+32,,
  45.   Rainbow 0,0,Max(388-YS,258),Min(32,YS-98)
  46.   Screen Offset 3,SX+64,
  47.   HL=Max(HL-1,0)
  48.   If HL=0 Then Add SX,4,0 To 383 : If(SX mod 32)=0 Then Gosub NL
  49.   I$=Inkey$ : SC=Scancode
  50. Until SC/2=40
  51. BP=0 : S$=" "
  52. Screen 0 : Fade 5 : Screen 3
  53. For A=0 To 95
  54.   Wait Vbl 
  55.   YS=Max(YS-2,96)
  56.   Screen Display 1,,Min(YS,160),,
  57.   Screen Display 2,,YS+32,,
  58.   Rainbow 0,0,Max(388-YS,258),Min(32,YS-98)
  59.   Screen Offset 3,SX+64,
  60.   HL=Max(HL-1,0)
  61.   If HL=0 Then Add SX,4,0 To 383 : If(SX mod 32)=0 Then Gosub NL
  62. Next 
  63. Track Stop 
  64. Amal Off 
  65. Sprite Off 
  66. Rainbow Del 
  67. Screen Hide 0 : Screen Hide 1 : Screen Hide 2 : Screen Hide 3
  68. Screen Close 0
  69. Screen Close 1
  70. Screen Close 2
  71. Screen Close 3
  72. Screen Close 7
  73. View 
  74. If SC=80
  75.   LHA$="CrackOut.LHA"
  76.   DISK$="Crack Out!"
  77. Else 
  78.   LHA$="FTC.LHA"
  79.   DISK$="F.T.C"
  80. End If 
  81. A$=Chr$(10)
  82. Open Out 1,"RAM:Install.bat"
  83.   Print #1,':C/Echo "You need a FRESH FORMATTED disk to proceed."'+A$;
  84.   Print #1,':C/Echo "If you have not got one, reset now and format one."'+A$;
  85.   Print #1,':C/Echo "To continue press <RETURN>."'+A$;
  86.   Print #1,":C/WaitReturn"+A$;
  87.   Print #1,":C/Copy :C/Copy RAM:Copy"+A$;
  88.   Print #1,"RAM:Copy :C/Echo RAM:Echo"+A$;
  89.   Print #1,"RAM:Copy :C/WaitReturn RAM:WaitReturn"+A$;
  90.   Print #1,"RAM:Copy :C/Relabel RAM:Relabel"+A$;
  91.   Print #1,"RAM:Copy :C/Install RAM:Install"+A$;
  92.   Print #1,"RAM:Copy :C/LHa RAM:Lha"+A$;
  93.   Print #1,"RAM:Copy :"+LHA$+" RAM:"+LHA$+A$;
  94.   Print #1,'RAM:Echo "Now insert the FRESH FORMATTED disk into drive DF0:"'+A$;
  95.   Print #1,'RAM:Echo "And press <RETURN>."'+A$;
  96.   Print #1,"RAM:WaitReturn"+A$;
  97.   Print #1,'RAM:Relabel DF0: "'+DISK$+'"'+A$;
  98.   Print #1,"RAM:Install DF0:"+A$;
  99.   Print #1,"RAM:LHa x RAM:"+LHA$+" DF0:"+A$;
  100.   Print #1,'RAM:Echo "*EcInstallation complete!!!*N"'+A$;
  101.   Print #1,'RAM:Echo "After the drive led is off, do a reset, but leave the disk in the"'+A$;
  102.   Print #1,'RAM:Echo "Drive to play '+DISK$+'!!!"'+A$;
  103.   Print #1,"RAM:WaitReturn"+A$;
  104. Close 1
  105. Wait Vbl 
  106. End 
  107. NL:
  108.   Add BP,1,1 To Len(S$) : B=Asc(Mid$(S$,BP,1))
  109.   If B=104 Then Inc BP : HL=Val(Mid$(S$,BP,1))*20 : Goto NL
  110.   Paste Icon 384+SX,0,B-31
  111.   Paste Icon SX,0,B-31
  112. Return 
  113. GAMEDISKSCREENINIT:
  114.   Set Rainbow 0,0,32,"","",""
  115.   For A=0 To 15
  116.     Rain(0,A)=A
  117.     Rain(0,31-A)=A
  118.   Next 
  119.   Set Rainbow 1,1,34,"","",""
  120.   For A=0 To 7
  121.     Rain(1,A+1)=A*$100+$800
  122.     Rain(1,A+9)=A*$10+$80
  123.     Rain(1,A+17)=A*$110+$880
  124.     Rain(1,A+25)=A*$101+$808
  125.   Next 
  126.   Screen Open 3,768,32,8,0 : Screen Hide 
  127.   Curs Off : Flash Off : Cls 0 : Get Icon Palette 
  128.   Screen Display 3,128,258,320,32
  129.   Screen Open 2,640,32,2,$8000 : Screen Hide 
  130.   Curs Off : Flash Off : Palette 0,$FFF
  131.   Print "           F1: Install Crack Out!        F2: Install Free Trading Company!"
  132.   Print 
  133.   Print "          A Game by H.P. Obermeier              A Game by P. Hodges"
  134.   Print "                and C. Hodges                      and C. Hodges";
  135.   Screen Display 2,,96,,
  136.   Unpack 8 To 1 : Screen Hide : Screen Display 1,,96,,63
  137.   Unpack 9 To 0 : Screen Hide 
  138.   For A=0 To 15 : Colour 16+A,Colour(A) : Next 
  139.   Wait Vbl 
  140.   Screen 7 : Get Palette 0 : Screen 0
  141.   For A=0 To 31 : Colour A,0 : Next 
  142.   Wait Vbl : Screen Show 
  143.   Fade 3 To 7 : Wait 32
  144.   For A=100 To 40 Step -2
  145.     Screen Display 0,,A,, : Wait Vbl 
  146.   Next 
  147.   For A=-6 To 152 Step 2
  148.     Sprite 0,112+A,80,1
  149.     Sprite 2,448-A,80,1
  150.     Sprite 4,280,156-A/2,1
  151.     Wait Vbl 
  152.   Next 
  153.   Wait Vbl 
  154.   For A=17 To 31 : Colour A,$FFF : Next 
  155.   Fade 1 To 7
  156.   Wait 16
  157.   Sprite Off 2
  158.   Sprite Off 4
  159.   S=0 : X=128
  160.   For A=0 To 57
  161.     Add X,S/2
  162.     Sprite 0,128+X,80,2+Min(A/4,8)
  163.     If A<11 Then Inc S
  164.     If A>30 Then Dec S
  165.     If A>49 Then Inc S : Inc S
  166.     Wait Vbl 
  167.   Next 
  168.   Wait Vbl 
  169.   Sprite Off 
  170.   Paste Bob 255,40,10
  171.   Wait Vbl 
  172. Return 
  173. STARSINIT:
  174.   STAR$="; A: L X=R0+128; L Y=R1+40; A 1,(12,2)(13,2)(14,2)(15,2)(16,2)(17,2)(18,2)"
  175.   STAR$=STAR$+"(19,2)(20,2)(21,2)(22,2)(23,2)(24,2)(11,2);"
  176.   STAR$=STAR$+" PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP; J A; "
  177.   For A=0 To 7
  178.     Sprite A,0,0,11
  179.     Channel A To Sprite A
  180.     Amal A,String$("P",Rnd(40)+A*3)+STAR$
  181.   Next 
  182.   For A=0 To 3
  183.     Colour 17+A*4,$FFF : Colour 18+A*4,$7AF : Colour 19+A*4,$6F
  184.   Next 
  185.   Amal On 
  186.   Wait Vbl 
  187.   STAR=0
  188. Return 
  189. STARS:
  190. Data 21,10,49,5,44,18,30,30,47,31,29,63,76,3,56,43,69,42,79,63
  191. Data 64,64,47,63,96,35,100,5,109,3,129,3,140,4,136,64,121,63
  192. Data 145,4,173,5,166,19,166,40,176,42,162,63,214,16,180,5,217,58
  193. Data 231,3,234,31,246,63,229,64,259,4,262,18,245,39,278,5,296,4
  194. Data 290,22,303,41,283,63,264,82